home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2004 #2 / Amiga Plus CD - 2004 - No. 02.iso / AmigaPlus / Tools / Development / AmigaTalk / prelude / Magnitude.p < prev    next >
Text File  |  2004-01-31  |  1KB  |  47 lines
  1. pTempVar <- <primitive 110 9 >
  2. <primitive 112 pTempVar 1  " max: " \
  3.   #( #[ 16r20 16r21 16rCC 16rF7 16r03 16r20 16rF8 16r02 16rF2 16r21 16rF3 \
  4.         16rF5] \
  5.     #(  )) >
  6.  
  7. <primitive 112 pTempVar 2  " min: " \
  8.   #( #[ 16r20 16r21 16rC7 16rF7 16r03 16r20 16rF8 16r02 16rF2 16r21 16rF3 \
  9.         16rF5] \
  10.     #(  )) >
  11.  
  12. <primitive 112 pTempVar 3  " between:and: " \
  13.   #( #[ 16r20 16r21 16rCB 16rFC 16r03 16r20 16r22 16rC8 16rF3 16rF5] \
  14.     #(  )) >
  15.  
  16. <primitive 112 pTempVar 4  " > " \
  17.   #( #[ 16r21 16r20 16rC7 16rF3 16rF5] \
  18.     #(  )) >
  19.  
  20. <primitive 112 pTempVar 5  " >= " \
  21.   #( #[ 16r20 16r21 16rCC 16rFB 16r03 16r20 16r21 16rC9 16rF3 16rF5] \
  22.     #(  )) >
  23.  
  24. <primitive 112 pTempVar 6  " ~= " \
  25.   #( #[ 16r20 16r21 16rC9 16rAC 16rF3 16rF5] \
  26.     #(  )) >
  27.  
  28. <primitive 112 pTempVar 7  " = " \
  29.   #( #[ 16r20 16r21 16rCC 16rFB 16r03 16r20 16r21 16rC7 16rAC 16rF3 16rF5 \
  30.        ] \
  31.     #(  )) >
  32.  
  33. <primitive 112 pTempVar 8  " < " \
  34.   #( #[ 16r21 16r20 16rCC 16rF3 16rF5] \
  35.     #(  )) >
  36.  
  37. <primitive 112 pTempVar 9  " <= " \
  38.   #( #[ 16r20 16r21 16rC7 16rFB 16r03 16r20 16r21 16rC9 16rF3 16rF5] \
  39.     #(  )) >
  40.  
  41. <primitive 98 #Magnitude \
  42.   <primitive 97 #Magnitude #Object #AmigaTalk:General/Magnitude.st \
  43.    #(  ) \
  44.    #( #max: #min: #between:and: #> #>= #~= #= #< #<=  ) \
  45.   pTempVar 3 4 > #ordinary >
  46.  
  47.